(image-toggle-display): Handle tar and arc subfiles.

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 258f852a4d68fdf371aa9362ebcb8b636e80b377..1a55676e3c701b51eadcf972b7184e40e69870f9 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -139,7 +139,11 @@ and showing the image as an image."
     ;; was inserted
     (let* ((image
            (if (and (buffer-file-name)
-                    (not (buffer-modified-p)))
+                    (not (buffer-modified-p))
+                    (not (and (boundp 'archive-superior-buffer)
+                              archive-superior-buffer))
+                    (not (and (boundp 'tar-superior-buffer)
+                              tar-superior-buffer)))
                (progn (clear-image-cache)
                       (create-image (buffer-file-name)))
              (create-image